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' 
; REQUIRE FILE FOR THE DIRECTORY COMMAND 
+ 
1 


i Version: *v04-000" 


[ Peereeereeerererereerereeereereereerenrereeereneenrerererereeerrrereeeretert 
; 0 


ie 
ie COPYRIGHT (or 1978 1980, 1982, 1984 BY * 
ie DIGITAL AL EQui T CORPORATION, MAYNARD, MASSACHUSETTS. . 
is ALL RIGHTS RESERVE D. ‘ 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOV VE COPYRIGHT NOTICE. THIS SOF ARE OR ANY OTHER * 
ie COPIES THEREOF MA v NOT bf PROVIDED OR OTHER wist MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY © 
te TRANSFERRED” ° 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
is CORPORATION. e 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ®* 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ° 
i scaehemleinnanenthdiibcitettneiasiadhdtsiendidinienedieiieinianeneaaeatianinhinteaneeaeememeininiia 
‘ee 
‘ 
FACILITY: DIRECTORY 
i ABSTRACT: 


This file defines all of the flags and storage offsets local 
to the DIRECTORY command. 


i ENVIRONMENT : 
i VAX/VMS operating system, unprivileged user mode utilities. 


= 
S 


L. Mark Pilant CREATION DATE: 35-Mar-1983 


IFIED BY: 


v0O3-008 LMP0211 L. Mark Pilan 10-Mar-1984 13:23 
Add storage for the length i the file's ACL and the name of 
the device on which the file lives. 


v03-007 TMK0001 Todd M ote ety 
Change all references Fy FH2SM_RUACCESS “FH $m ORLY RU. 


v03-006 LMP0157 L. Mark Pilant, 27-Sep-1983 14:07 


== 


—_-_------_-————— 


coats BE bones” locked files. 


uncre -REQ;1 16-SEP-1984 16:49:44.03 Page 2 - 
: Add support for a unique message file. 

i v03-005 basoo02 David Solomon 01-Aug-1983 

: ix broken SASSUME due to max journal name going from 12 to 16. 
i v03-0046 DAS 29-Jul-1983 

: ASSACRUA is now ett ae “ONLY R RU. : 

i v03-003 LMP0108 L. Mark Pilant, 28-Apr-1983 1: 310 

: Flush the ovtout buffers when an error occurs. Also a 

: support for RMS journal names. 

i v03-002 Lmrotgg L. Mark Pilant, 14-Apr-1983 11:43 

: Misc fixups. 

! v03-001 LMP0096 Mark Pilant, 29-Mar-1983 9:58 

i 

i 


REQUIRE *LIBS:DISPLYDEF’; 
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! Assumptions made about various constants. 


SASS (XABSC A NAM EQ 
red GHABSARU Fueeh pay RU); 


$4ASS L FH2SM BIINC) 

siScune ABE - His Boat “ALJ 4} : 

! Built in enieniteds 

BUILTIN 
ROT 


! Macro to signal an error and save the worst case error condition. 


MACRO 
SIGNAL (ERROR) = 
BEG! 


N 

EXTERNAL wot ie 
L18 SIGNAL : ADDRESSING_MODE (GENERAL); 

SFLUSH (RAB = OUTPUT_R ps 
SWAIT (RAB = OUTPUT _R 
LIBSSIGNAL (ERROR 2TF LéngtHe1 GTR 0 gn? ZREMAINING 2FI1); 
IF (ERROR AND STSSM SEVERITY) NEQ STSS$K_ WARNING 
AND (WORST ERROR ARD STSSM_SEVERITY) L 4s 

(ERROR AND STSS$M_SEVERITY) THEN WORST_ERROR = ERROR OR 

STSSM_INHIB_MSG; 

_ 


! Macro to do a formatted write to the selected output device/file. 


MACRO 
WRITE (CODE, ST 
DIRSOUTPUT ( 
ZLENGTH GTR 1 ZTHEN, SDESCRIPTOR (STRING) %FI 

ZLENGTH GIR 2 ZTHEN, ZREMAINING 2FI) 2%; 


! Macro to format and append text to the current Line. 


MACRO 
APPEND (CODE, seine? = 


DIRSAPPEND (CODE 
ZIF ZLENGTH GTR 1 ZTHEN, SDESCR 
ZIF ZLENGTH GTR 2 ZTHEN, ZREMAI 


! Shared message definitions. 


SSHR_MSGDEF (DIR, 121, LOCAL, 
(SYNTAX, het 


PTOR i — zFI 
ING ) %; 
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' Common Literals. 


LITERAL 
DIR_C_MAXMSGSIZ = 256; 


! Define common storage. 


! Maximum message size 


PSECT OWN=DIRSCOMMON (OVERLAY, ADDRESSING MODE (LONG_RELATIVE), ALIGN (0)); 


OWN 
QUAL_FLAGS : SBBLOCK (8), ! Command quel itier flags 
COLUAN_C ° ! Number of columns in the display 
COLUMN_ INDEX, ! Current column number 
COLUMN Naan’ ! Width of a column 
Onst ER i The worst error encountered 
Q0AL_C i Common qualifier parsing context 
ST SPLAY gti : REF SBBLOCK, } Address of the display bloc 
he i vs, channel for inforaat ion — 
DEVICE NAME : VECTOR CNAMSC_DvVI TE), H Current device name descr 
LINE_DESC : SBBLOCK CDSCSC_s py i Qutput Line descriptor 
LINE" BUFFER : VECTOR (1024, By Te "! Output Line text storage 
TOTAC_USED : tal block used 
TOTAL~ALLOC, } tovet blocks vallocated 
TOTAL_FILES, ' Total files in p Srressery 
GRAND_USED ! Grand total blocks used 
GRAND~ALLOC, i Grand total block * {lecoted 
GRAND _FILES, tote l files liste 
GRAND_DIRS, otal directories Listed 
PREV_DBIR : VECTOR CNAMSC Haynss Previous dir name 
PREV_DIR_LEN, = Baty pajrectory name lengt 
PREV-FILE : VECTOR CNAMSC LAAXRSS BYTE) : Previous fi -¥ name 
PREV-FILE_LEN, ' Previous file name Length 
VERSTON_ COUNT, ! Number of versions to list 
VERSION_ INDEX, ' Current version 
FIRST_XAB : REF $BBLOCK, ! Ader ss of the first XAB 
NFO_RABJNL : SXABJNL (), |! RMS journaling information 
INFO_XABSUM : SXABSUM (), =! RMS summary information 
INFO_XABPRO : SXABPRO (), ! File protection info 
INFO_XABDAT : SXABDAT (), ! File dates 
INF O_XABFHC : SXABFHC (), ! File header data 
FO_NAM : q) ! NAMe i for opening file 
INFO-FAB SFAB (FOP = NAM ! FAB for getting file info 
NAM = INEO_NAM 
SHR = <GET; Puf >), 
DISPLAY_WIDTH, 1 Max uldch of” the display 
FILENAME WIDTH ! Max width of the file name 
OWNER_WIBTH, ! Max width of the owner (UIC) 
SIZE_QIDTH, ' Max width of t the size Hie d (blocks) 
MIN_BLOCK, it Low end block size select on Limit 
MAX _BLOCK, : High end block size Sesect on Limit 
ACL_LENGTH, ! Length of the file's A 
OUTPUT_RAB : SRAB_DECL:  ! Output file RAB 
PSECT OWN=SOWNS (CONCATENATE, ADDRESSING_MODE (WORD_RELATIVE), ALIGN (2)); 


3a 


a 
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